unit UContasReceberMd;

interface

type TContasReceberMd = class(TObject)

   private
      idContasReceber : Integer;
      dataRecebimento : TDateTime;
      valor : Double;
      observacoes : String;

   public
      constructor Create;
      destructor Destroy; Overload;

      procedure setIdContasReceber(idContasReceber : Integer);
      function getIdContasReceber : Integer;

      procedure setDataRecebimento(dataRecebimento : TDateTime);
      function getDataRecebimento : TDateTime;

      procedure setValor(valor : Double);
      function getValor : Double;

      procedure setObservacoes(observacoes : String);
      function getObservacoes : String;

end;

implementation

constructor TContasReceberMd.Create;
begin
   inherited;
end;

destructor TContasReceberMd.Destroy;
begin
   inherited;
end;

procedure TContasReceberMd.setIdContasReceber(idContasReceber : Integer);
begin
   self.idContasReceber := idContasReceber;
end;

function TContasReceberMd.getIdContasReceber : Integer;
begin
   result := self.idContasReceber;
end;

procedure TContasReceberMd.setDataRecebimento(dataRecebimento : TDateTime);
begin
   self.dataRecebimento := dataRecebimento;
end;

function TContasReceberMd.getDataRecebimento : TDateTime;
begin
   result := self.dataRecebimento;
end;

procedure TContasReceberMd.setValor(valor : Double);
begin
   self.valor := valor;
end;

function TContasReceberMd.getValor : Double;
begin
   result := self.valor;
end;

procedure TContasReceberMd.setObservacoes(observacoes : String);
begin
  self.observacoes := observacoes;
end;

function TContasReceberMd.getObservacoes : String;
begin
  result := self.observacoes;
end;

end.
 